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StF ILE**1D**MRDBLK 
Lala! MM RRRRRRRR DDDDDDDD BBBBBBBB LL KK KK 
MM MM RRRRRRRR DDDDDDDD BBBBBBBB LL KK KK 
MMMM MMMM ORR RR DD DD 8B BB LL KK KK 
MMMM MMMM RR RR DD DD 88 BB LL KK KK 
MM 66MM OMM ORR RR DD DD 8B BB LL KK KK 
MM 66MM UMM ORR RR DD DD BB BB LL KK KK 
MM MM RRRRRRRR DD DD 88888888 LL KKKKKK 
MM MM RRRRRRRR DD DD 88888888 Li KKKKKK 
MM MM RR RR DD DD 8B BB LL KK KK 
MM MM RR DD DD 8B BB LL KK KK 
MM MM ORR RR OD DD BB BB LL KK KK cece 
MM MM RR RR DD DD 6B BB LL KK KK eee 
MM MM ORR RR DDDDDDDD BBBBBBBB LLLLLLLLLL KK KK eee 
MM MM RR RR DDDDDDDD BBBBBBBB LLLLLLLLLL KK KK cece 
LL III! SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL T1111! SSSSSSSS 


be and internal exec routines. 

be -<- 

004? AUTHOR: Andrew C. Goldstein, CREATION DATE: 18-Oct-1977 11:35 
004 ! MODIFIED BY: 


v03-002 HHO041 Huan q juts 1984 
Remove REQUIRE Tbs: VASLIB. OBJ ]MOUNTMSG. B32 


v03-001 St s0%6 Steven T. Jeffreys 04-Apr-1982 
Create a common I[/0 routine phat will be used for 


all sycnronous 1/0 done within SMOUNT. 


N 1 
MRDBLK 16-Sep-1984 01:25: VAX-11 Bliss<-32 V4.0-742 1 
19-80-1382 94:23:38 DISKSVMSMASTER: (MOUNT. SRCIMRDBLK.B32- 7%° (1) 

4 1 0001 MODULE MRDBLK ( F 
3 § $088 LANGUAGE ( L1$$32), 3 
; 0 IDENT = 4-000 3 
3 4 0004 0 )= 3 
: 5 B28? ! BEGIN : 
: : $09 1! : 
5 0008 ! Lee RRARAAAEAEEAERAARAEAERERAEEA EAR EAE A EAA EEEEAEEE ° 
3 ie » F 
a 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 4 PF 
: 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, - MAYNARD. MASSACHUSETTS. * : 
: ig OO1g 1 is ALL RIGHTS RESERVED. . ; 
: 14 bole 1 ie re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ® : 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ie SE ~ aa THE * . 
3 16 Bai$ 1 Ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * : 
3 17 001 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE FVATLABLE TO ANY * . 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
; 1 sith ! ‘* TRANSFERRED. « 3 
3 '® * 3 
: 21 it 1 Ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 22 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
; $i att : ‘* CORPORATION. : : 
: 25 0025 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® $ 
; Sf $058 1 is : 
: $3 ot 94 1 PETTITT ITLL ITLL TL LLL LLL LLL iti itll titi iii titi iii iti iii) : 
: 0 00 1 3 
eed Oh : 
; 33 0038 i FACILITY: MOUNT Utility Structure Levels 1 & 2 3 
i 3% 0035 1 i ABSTRACT: : 
: HH sit t4 : This routine reads a block from the disk being mounted. 3 
: 39 0039 i ENVIRONMENT: 3 
: 3 re ! STARLET operating system, including privileged system services 3 
: rk 0 1 F 
: 44 8 4 1 : 
: 45 5 1 : 
:; 6446 0 § 1 3 
: 47 1 : 
; 48 1 é 
: 49 1 : 
: 50 1 3 
Po a ' ; 
: 6 1 ; 
: 54 1 : 
.¢ : 
: 57 1 F 


2 
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; 28 28 1! v02-001 ACG0167 Andrew C. Goldstein 18-Apr-1980 13:38 
: 1 i Previous revision history moved to MOUNT.REV 
; 60 60 1 !ee 

: 61 061 1 

3 o¢ O66 1 

H 6 06 1 LIBRARY ‘SYS$LIBRARY:L1B.L32'; 

3 64 064 1 REQUIRE ‘SRC$:MOUDEF .B32'; 

; 65 9238 1 

3 66 0597 +1 

WORE 0598 #1 

3 68 0599 (1 

; 69 0600 1 WRITE_BLOCK; ! write a disk block 


FORWARD ROUTINE | 
READ _ BLOCK, ' read a disk block 
| 
| 


GLOBAL ROUTINE READ_BLOCK (LBN, BUFFER) 
lee 


p68) 
oe 
foe ae 
2 2696 FUNCTIONAL DESCRIPTION: 
7 060 i This routine reads the indicated block f A 
; Os08 | CHANNEL fs ess foned te. ndicated block from the device that 
0 0610 i CALLING SEQUENCE: 
1 pet) READ_BLOCK (ARG1, ARG2) 
: $018 i INPUT PARAMETERS: 
4 0614 ‘ ARG1: LBN of block 
H Rel? ARG2: address of buffer to read into 
7 bei? i IMPLICIT INPUTS: 
: Beis CHANNEL: channel number to use 
0 0620 1 ' OUTPUT PARAMETERS: 
1 bess NONE 
g $658 i IMPLICIT OUTPUTS: 

+9 ¢ NONE 

0626 i ROUTINE VALUE: 

0627 ! 1/0 or system service status of request 

0628 ! 

9 ! 
o 1 
ie 


RPO 2 A QOOOCCOOCOCOOOOOOOO ONO 0000 
= POPIPINIPOPONOPONIPUNINIPIPINIPIPININIDY 2 ts 


; O06 SIDE Ervecyss ; 

1 0631 ewapice 

! sie | 

1 0634 BEGIN 

) $F voc 

1 0637 STATUS, ' system status cod 

; bess IO_STATUS : VECTOR C2]; ! 170 status block : 

1 0640 EXTERNAL 

‘ set CHANNEL; ' channel number for 1/0 
1 P ek STATUS = DO_IO (CHAN = .CH + 

1 P 3 FUNC = I0$ READE BLK 

1 P 0645 10SB = 10 STATUS(O), 

1 Pp b646 EFN = MOONT_EFN, 

1 P Roe Pl = ° FFER, 

1 P 0648 Pe = 5 ry 

' been P = .LBN); 

1 oat IF_.STATUS THEN STATUS = .(IO_STATUS[0))<0,16>; 

' 636 RETURN .STATUS; 

1 0654 END; ! end of routine READ_BLOCK 


-TITLE MRDBLK 


2 
16-Sep-19 4 01:25: VAX-11 Bliss-32 V4.0-742 p 
eaeee=18be 13:28:95 ie catmeAAS fens chcuuT sacoMADBLK.83264%" (2 
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vo4=b00 1ESS0e1986 QUGEES YNHTARUERZ Aa ”Scamoc. 228% cf 
JIDENT \V04=000\ 


.EXTRN CHANNEL, COMMON_IO 
.PSECT S$CODES,NOWRT,2 


000 ENTRY AD BLOCK, Save nothin ; 0601 

se 08 c2 6 siBLs aes , : 
:or CLRO 4 i + 0649 

7E 04 007 CLRL 3s = (SP) : 

4 ac po 0 PUSHL : : 

7E 02 BF 3C o¢ MOVZWL #512, -(SP) : 

08 Ac bp 1 USHL BUFFER : 

7E 7C 00014 CLRQ. = =(SP) : 

20 aE 9F 00016 PUSHAB 19 STATUS : 

21 OD po13 PUSHL #33 3 

00006 CF DD 00018 PUSHL CHANNEL : 

1A DD OOO1F PUSHL 426 ; 

000000006 00 o¢ FB 0021 CALLS #12, COMMON_IO ; 
03 : 0028 BLBC STATUS > 0651 

50 6E 3C 00028 MOVZWL IO_STATUS, STATUS : 
04 0002E 1$: RET > 0654 


; Routine Size: 47 bytes, Routine Base: S$CODE$ + 0000 


] 
- 2 | 
MRDBLK 18-Sep-19 4 01:25: VAX-11 Bliss-32 V4.0-742 Page 5 MWT! 
y04-000 1 ~300 7} Re 93:23:38 DISKSVMSMAS TER: CMOUNT . SRCIMRDBLK.B32:1°> 3} | v04 
| 
3 ! § 963? ! GLOBAL ROUTINE WRITE_BLOCK (LBN, BUFFER) = 
: 128 O63? 1 tee 
: 129 06 8 1! 
4 : , 8e22 : FUNCTIONAL DESCRIPTION: 
cas ¢ 0661 1! This routine writes the indicated block to the device that | 
7 po6s 1! CHANNEL is assigned to. | 
> 134 0665 1! 
= i 0664 1 ! CALLING SEQUENCE: 
‘eh 0665 1! WRITE_BLOCK (ARG1, ARG2) 
3s 137 0666 1! 
; 138 0667 1 ! INPUT PARAMETERS: 
3; 139 0668 1 ! ARG]: LBN of block 
: 140 0669 1! ARG2: address of buffer to write from 
s 1641 0670 1! 
; 136 0671 1 ! IMPLICIT INPUTS: 
14 0672 1! CHANNEL: channel number to use | 
3 6144 067 7 !. 
s 145 0674 1 ! OUTPUT PARAMETERS: 
: 146 0675 1! NONE | 
; 147 0676 1! 
: 148 0677 1°! IMPLICIT OUTPUTS: 
: 149 0678 1 NONE | 
3; 150 0679 1! 
: 151 0680 1 | ROUTINE VALUE: | :R 
3 13¢ 0681 1! 1/0 or system service status of request 
, 35 0682 1! 
s 156 068 1 ! SIDE EFFECTS: } 
s 55 0684 1! block written 
: 156 0685 1! 
3: 157 0686 1 !-- 
: 158 0687 1 
3; 159 0688 § BEGIN 
3; 160 0689 
: «161 0690 § LOCAL 
: tee 0691 STATUS ' system status code 
> 163 069¢ 10_STATUS : VECTOR C2]; ! 1/0 status block 
> 164 069 
; «6165 0694 EXTERNAL 
: 166 0695 CHANNEL; ! channel number for 1/0 
s 167 0696 
; 168 P 0697 STATUS = DO_IO (CHAN = .CHANNEL 
; 169 P 0698 FUNC = 10$ wri Tete K, 
: 170 P 06 10SB = 10 STATUSCO), | 
>. ory P 0700 EFN = MOONT_EFN, 
3 76 P 0701 P1 = ByFFER, 
yo OF P 070 i = 512, 
: 174 070 P = .LBN); 
: 175 0704 
s 176 705 IF .STATUS THEN STATUS = .(JO_STATUS(OJ)<0,16>; 
: iv 4 RETURN .STATUS; 
: 179 708 1 END; ! end of routine WRITE_BLOCK 


| 
MRDBLK $ep-1984 01:25: VAX-11 Bliss-32 V4.0-742 Page 6 
VO4-000 at 7 03:23:38 DISKSVMSMAS TER: CMOUNT . SRCIMRDBLK.B32:1> (3) | 
0000 00 eENTRY WRITE_BLOCK, Save nothin 3 sa 
SE 08 SuBL2. #8, SP . ; 
— 7C CLRO. 0. = ¢§P) + 0703 
7E D4 CLRL 3s = (SP) : 
04 AC pp 0009 PUSHL BN F 
7E 0200 8F 3¢ 900¢ MOVZWL #512, =(SP) ; 
08 Ac bd 011 PUSHL BUFFER : 
7E 7C 00014 CLRQ. = = SP) ; 
20 ar OF 1 PUSHAB 10 STATUS : 
20 OD 0001 PUSHL #f : 
00006 CF DD 0001B PUSH. CHANNEL : 
1A DD OOO01F PUSHL # : 
000000006 gf FB 1 CALLS #12, COMMON_10 : 
8 BLBC = STA 1 : 0705 
6 3¢ 8 MOVZWL JO_STAfUS, STATUS : 
4 0002E 18: RET : 0708 


; Routine Size: 47 bytes, Routine Base: $CODE$S + 002F 


2 rs | eeF! 
YOeeb00 18-Sep-1984 93:22:38 D RSVMGHASTERSCHGUNT-SRCIMRDBLK.B3204 7" «ah 


GLOBAL ROUTINE COMMON_10 (EFN,CHAN,FUNC,I1OSTS,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 


=" 
co 
par 
~ 
dd td IO 


[od 
wre 
OOO NOULS WOO 


'e4 
' 


i FUNCTIONAL DESCRIPTION: 


This routine is the common I/0 routine for all synchronous 1/0 
done by the SMOUNT system service. Event flags are used very 
cautiously to prevent confusion arising from an outside agent 
setting and clearing event flags indiscrimenently. 


ae ENCE: 


: If an 1/0 status block was not specified, use a local one. 


7 
7 
7 
85 7 
B6 7 ' 
8 7 ! 
88 7 ! 
89 7 : 
90 7 ' 
ee 
38 721 : entical to $010. A macro, DO_10, has been defined in MOUDEF 
94 7 ¢ : so that existing code can use this routine by replacing the 
95 7 : call to $Q10W with an invokation of DO_IO without having to 
38 f : change the order or names of routine arguements. 
98 726 ! INPUT PARAMETERS: 
+4 f ‘ See $Q]0W for the details. 
01 729 ! IMPLICIT INPUTS: 
OF 730 : NONE 
) 731 : 
04 7 ; ! OUTPUT PARAMETERS: 
05 7 ! NONE 
06 734 : 
07 735 ! IMPLICIT OUTPUTS: 
08 736 ! NONE 
09 737 ‘ 
10 7 ' ROUTINE VALUE: 
1 I 1/0 or system service status of request 
ig 741 ! SIDE EFFECTS: : 
14 rs ! ome 1/0 has been attempted, and at exit, the event flag 
15 74 ’ MOUNT_EFN is always set. 
16 744 : 
17 745 !<- 
18 re 
19 74 BEGIN ! Start of routine COMMON_IO 
20 748 
21 749 LOCAL 
$§ 750 10SB : REF BeLore VOLATILE, 
751 10_STATUS : BBLOCK (8), 
4 7 § STATUS; 
5 7 
$8 754 
7 7 
7 
7 
7 
7 
7 


PROPRIO IIGPOPDPOPOPIPOPIPPIDINPIY 8 a st st a tt tt tt tt tt tt tt 


Be Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Ge Ge Fe Fe Ge Ge Fe Se Se Ge Se Se Se Se Ge Se Ge Se Se Se Se Se Se BESS Ss Se Se Se SH Se Se Se Sees ee 


POPIPIPIPOPOPOPINININPYNINGNINIPONINPINYAINININPIPININPININININININININININIDY 3 9 9 tS 


55 
8 
9 : IF (10SB = .JOSTS) EQt 9 
28 THEN 
1 5 BEGIN 
3 60 CHSFILL (0, 8, IO_STATUS); © 
3 761 10SB = 10_STAfuS; 
34 166 END; 
5 76 
764 !' Issue the 1/0 request. 
37 765 ! 


i = 


_ | 
MRDBLK 16-Sep-1984 01:25: VAX-11 Bliss-32 V4.0-742 Page 8 
v04- 12-88-1382 04:22:38 DISKSVMSMAS TER: CMOUNT . SRCIMRDBLK.B32:1> a) 
; 3 766 
: 539 P0767 5 STATUS = $Q10OW (EFN = .EFN, | 
: 240 P 0768 CHAN = .CHAN, 
; 4) P 768 FUNC = .FUNC, 
; tg P O770 10S = .J]0SB 
: 26 P 0771 ASTADR = .ASTAOR, 
> 26h P 0772 ASTPRM = .ASTPRM, 
: 45 P 0775 P1 = le 
: 46 P 0774 P = .P2, 
: 267 P 0775 Pp = .P5, 
3 48 P pz7e P4 = .P4, 
: 249 2 or? P5 = .P5, 
$ 50 o 776 P6 = .P6 
: 51 077° ); 
3 $2§ 0780 
; 5 0781 ! If the return status from $Q10W indicates success, make sure that 
; 54 07 ; ' the 1/0 actually completed. If it did not, then wait for the event 
3 £92 078 ! flag again, after resetting it to a known state. 
; 256 bree ! 
; 257 0785 
; 258 076 IF .STATUS 
s 29 078 THEN 
: 260 0788 BEGIN 
; 261 0789 WHILE (.10SB (0,0,16,0) EQL 0) DO 
3 $06 0790 4 BEGIN 
; 26 0791 4 SCLREF (EFN = .EFN); 
: 264 O79¢ 5 IF (.10SB C0,0,16,0) EQL 0) | 
; 265 0793 4 THEN 
; 266 0794 4 SWAITFR (EFN = .EFN); 
s eer 0795 END; 
; 268 B78 STATUS = .J0SB (0,0,16,0); 
3: 269 079 END; 
: 270 0798 
3; 271 0799 
3 $f 0800 ! Set the specified event flag and return. 
: 27 0801 ! 
3 274 080 
s 27s 080 SSETEF (EFN = .EFN); 
4 $/8 0804 RETURN (.STATUS) 
5 au 0805 1 END; ! End of routine COMMON_10 
| 
-EXTRN SYS$QIOW, SYSSCLREF | 
TEXTRN SYSSWAITFR, SYSSSETEF | 
-ENTRY COMMON_IO, Save R2,R3,R4,R5 3; 0709 
5E SUBL2 #12, S$ ; 
08 AE 10 mov losts, 10S8 > 0757 
08 00 6E MOVCS #0, (SP), #0, #8, IO_STATUS ; 0760 
08 AE MOVAB IQ_STATUS, 10SB : 0761 
7E $f MOVaQ P5, -(SP) ; 0779 
7E 4 MOVQ PS, -(SP) : 
7E 1C MOvVa Pi, -(SP) : 
7E 14 MOVO  ASTADR, -(SP) F 


= 


MRDBLK tose -1984 01:25: VAX-11 Bliss-32 V4.0-742 Pa 9) 
v04-000 1 ~8ep-19 4 93:22:38 DISKSVMSMASTER: CMOUNT .SRCIMRDBLK.B32:1> (4) | 
AE DD PUSHL I0SB : 
7E es AC a § mMOVa CHAN, =(SP) : 
4 AC ODD D PUSHL é 
000000006 99 F CALLS #12, SYS$QI0W : 
D MOVL RO, STATUS 3 
24 E A BLBC STATUS, 4$ : 07 
08 BE 83 2$ TSTW 0SsB 3; 0789 
1B 004 BNEQ F 
04 ac odd 4 PUSHL EFN ; 0791 
000000006 00 01 F 4 CALLS #1, SYSSCLREF 3 
08 &BE 83 4C TStw  a10sB + 0792 
ec 1 pet BNEQ 2$ 3 
04 ac OD 51 PUSHL EFN 3: 0794 
000000006 00 01 FB 00054 CALLS #1, SYSSWAITFR : 
EO iy 0058 BRB 2$ 3; 0789 
52 08 BE 3C 0005D 3$ MOVZWL @10SB, STATUS 3; 079: 
04 AC DD 00061 4$ PUSH EFN 3; 080 
00000000G 00 9 Fe 4604 CALLS #1, SYSSSETEF F 
50 2 00 00068 MOVL STATUS, RO 3; 0804 
04 0006E RET ; 0805 
; Routine Size: 111 bytes, Routine Base: S$CODE$ + O0SE 
; 278 0806 1 
279 0807 1 END 
280 0808 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 205 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: eoeeeoce Symbols eoccceecon Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28: CSYSLIBILIB.L32;1 18619 16 0 1000 00:02.0 


: COMMAND QUALIFIERS 


| 
| 
ae 
<= 
Se 


MROBLK 15-56 $ep-1984 VAX-11 Bliss-32 V4.0-742 
v04=000 met) PHY Me Set YS To the tks eee Te La 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:MRDBLK/OBJ=OBJ$:MRDBLK MSRC$:MRDBLK/UPDATE=(ENH$:MRDBLK) 

Size: 205 + 0 data byt 

Run timer 8 ats erst sa 


ne 7 
Lexenes/CPU-Min; 34096 
ot pages 
— B a Complete 
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